home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #6 / Commodore_Disk_User_Vol.1_6_1988_-.d64 / 5 zones.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  34 lines
  1. 10 rem********************
  2. 20 rem* five zone raster *
  3. 30 rem********************
  4. 2000 forl=0to26:cx=0:ford=0to15:reada:cx=cx+a:poke2088+l*16+d,a:nextd
  5. 2010 reada:ifa<>cxthenprint"error in line";2040+(l*10):stop
  6. 2020 nextl:end
  7. 2040 data76,52,8,76,47,9,76,216,8,76,108,9,120,169,127,141,1318
  8. 2050 data13,220,169,1,141,26,208,173,215,8,133,170,173,177,8,141,1976
  9. 2060 data18,208,169,27,141,17,208,169,91,141,20,3,169,8,141,21,1551
  10. 2070 data3,88,96,173,25,208,141,25,208,41,1,240,64,198,170,16,1697
  11. 2080 data7,173,215,8,133,170,198,170,166,170,189,190,8,141,32,208,2178
  12. 2090 data189,185,8,141,33,208,189,195,8,141,22,208,189,200,8,141,2065
  13. 2100 data24,208,189,205,8,141,34,208,189,210,8,141,35,208,189,177,2174
  14. 2110 data8,141,18,208,138,240,12,234,234,234,234,234,234,104,168,104,2545
  15. 2120 data170,104,64,76,49,234,32,35,9,1,209,169,138,89,50,57,1486
  16. 2130 data49,11,12,11,12,11,12,12,12,12,12,8,8,8,8,8,206
  17. 2140 data20,20,20,20,20,0,0,0,0,0,0,0,0,0,0,5,105
  18. 2150 data32,174,9,141,73,3,238,73,3,32,174,9,141,66,3,32,1203
  19. 2160 data249,8,32,60,9,238,66,3,173,66,3,205,73,3,208,242,1638
  20. 2170 data96,32,35,9,141,65,3,32,35,9,141,68,3,32,35,9,745
  21. 2180 data141,67,3,32,35,9,141,72,3,208,1,96,32,35,9,141,1025
  22. 2190 data69,3,32,35,9,141,70,3,96,8,24,32,253,174,32,138,1119
  23. 2200 data173,32,247,183,165,20,96,32,174,9,141,66,3,32,249,8,1630
  24. 2210 data32,60,9,96,172,66,3,174,72,3,173,65,3,153,200,8,1289
  25. 2220 data173,67,3,153,185,8,173,68,3,153,190,8,189,33,9,153,1568
  26. 2230 data195,8,224,0,208,1,96,173,69,3,153,205,8,173,70,3,1589
  27. 2240 data153,210,8,96,169,49,160,234,141,20,3,140,21,3,169,0,1576
  28. 2250 data141,25,208,141,26,208,32,163,253,169,200,141,22,208,32,249,2218
  29. 2260 data8,173,65,3,141,24,208,173,67,3,141,33,208,173,68,3,1491
  30. 2270 data141,32,208,174,72,3,189,33,9,173,69,3,141,34,208,173,1662
  31. 2280 data71,3,141,35,208,96,32,35,9,201,6,144,5,169,5,76,1236
  32. 2290 data192,9,201,0,208,2,169,1,141,74,3,169,5,56,237,74,1541
  33. 2300 data3,96,16,254,16,255,0,255,16,255,16,254,0,254,17,254,1961
  34.